/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / samples / automagic.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 66 6f 72 20 61 75 | 74 6f 6d 61 67 69 63 20 |% for au|tomagic |
|00000010| 65 71 75 61 74 69 6f 6e | 20 6e 75 6d 62 65 72 69 |equation| numberi|
|00000020| 6e 67 0a 20 0a 5c 6e 65 | 77 63 6f 75 6e 74 5c 4c |ng. .\ne|wcount\L|
|00000030| 61 73 74 45 71 4e 75 6d | 0a 5c 4c 61 73 74 45 71 |astEqNum|.\LastEq|
|00000040| 4e 75 6d 3d 30 0a 5c 64 | 65 66 5c 42 75 69 6c 64 |Num=0.\d|ef\Build|
|00000050| 45 71 42 6f 78 23 31 7b | 5c 68 62 6f 78 7b 7b 5c |EqBox#1{|\hbox{{\|
|00000060| 72 6d 5c 74 68 65 5c 63 | 6f 75 6e 74 31 2d 2d 5c |rm\the\c|ount1--\|
|00000070| 74 68 65 23 31 7d 7d 7d | 0a 5c 64 65 66 5c 6e 65 |the#1}}}|.\def\ne|
|00000080| 78 74 65 71 6e 75 6d 7b | 7b 5c 63 6f 75 6e 74 39 |xteqnum{|{\count9|
|00000090| 3d 5c 4c 61 73 74 45 71 | 4e 75 6d 5c 61 64 76 61 |=\LastEq|Num\adva|
|000000a0| 6e 63 65 5c 63 6f 75 6e | 74 39 20 62 79 31 0a 20 |nce\coun|t9 by1. |
|000000b0| 20 20 20 5c 42 75 69 6c | 64 45 71 42 6f 78 7b 5c |   \Buil|dEqBox{\|
|000000c0| 63 6f 75 6e 74 39 7d 7d | 7d 0a 5c 64 65 66 5c 6c |count9}}|}.\def\l|
|000000d0| 61 73 74 65 71 6e 75 6d | 7b 5c 42 75 69 6c 64 45 |asteqnum|{\BuildE|
|000000e0| 71 42 6f 78 7b 5c 4c 61 | 73 74 45 71 4e 75 6d 7d |qBox{\La|stEqNum}|
|000000f0| 7d 0a 5c 64 65 66 5c 6e | 65 77 65 71 6e 75 6d 7b |}.\def\n|eweqnum{|
|00000100| 5c 67 6c 6f 62 61 6c 5c | 61 64 76 61 6e 63 65 5c |\global\|advance\|
|00000110| 4c 61 73 74 45 71 4e 75 | 6d 20 62 79 31 20 5c 6c |LastEqNu|m by1 \l|
|00000120| 61 73 74 65 71 6e 75 6d | 7d 0a 5c 64 65 66 5c 6e |asteqnum|}.\def\n|
|00000130| 61 6d 65 6c 61 73 74 65 | 71 23 31 7b 5c 78 64 65 |amelaste|q#1{\xde|
|00000140| 66 23 31 7b 5c 42 75 69 | 6c 64 45 71 42 6f 78 7b |f#1{\Bui|ldEqBox{|
|00000150| 5c 4c 61 73 74 45 71 4e | 75 6d 7d 7d 7d 0a 20 0a |\LastEqN|um}}}. .|
|00000160| 25 20 66 6f 72 20 61 75 | 74 6f 6d 61 67 69 63 20 |% for au|tomagic |
|00000170| 73 65 63 74 69 6f 6e 20 | 6e 75 6d 62 65 72 69 6e |section |numberin|
|00000180| 67 0a 20 0a 5c 6e 65 77 | 63 6f 75 6e 74 5c 73 65 |g. .\new|count\se|
|00000190| 63 74 69 6f 6e 64 65 70 | 74 68 0a 5c 6e 65 77 62 |ctiondep|th.\newb|
|000001a0| 6f 78 5c 73 65 63 74 6e | 75 6d 0a 5c 6e 65 77 69 |ox\sectn|um.\newi|
|000001b0| 66 5c 69 66 74 6f 63 0a | 5c 6c 65 74 5c 5a 3d 5c |f\iftoc.|\let\Z=\|
|000001c0| 72 65 6c 61 78 0a 5c 64 | 65 66 5c 53 50 7b 20 7d |relax.\d|ef\SP{ }|
|000001d0| 0a 20 0a 5c 64 65 66 5c | 73 65 63 74 41 7b 5c 4c |. .\def\|sectA{\L|
|000001e0| 61 73 74 45 71 4e 75 6d | 3d 30 5c 67 6f 6f 64 62 |astEqNum|=0\goodb|
|000001f0| 72 65 61 6b 7d 0a 5c 6c | 65 74 5c 73 65 63 74 42 |reak}.\l|et\sectB|
|00000200| 3d 5c 67 6f 6f 64 62 72 | 65 61 6b 0a 5c 6c 65 74 |=\goodbr|eak.\let|
|00000210| 5c 73 65 63 74 43 3d 5c | 67 6f 6f 64 62 72 65 61 |\sectC=\|goodbrea|
|00000220| 6b 0a 5c 6c 65 74 5c 73 | 65 63 74 44 3d 5c 67 6f |k.\let\s|ectD=\go|
|00000230| 6f 64 62 72 65 61 6b 0a | 5c 6c 65 74 5c 73 65 63 |odbreak.|\let\sec|
|00000240| 74 45 3d 5c 67 6f 6f 64 | 62 72 65 61 6b 0a 5c 6c |tE=\good|break.\l|
|00000250| 65 74 5c 73 65 63 74 46 | 3d 5c 67 6f 6f 64 62 72 |et\sectF|=\goodbr|
|00000260| 65 61 6b 0a 5c 6c 65 74 | 5c 73 65 63 74 47 3d 5c |eak.\let|\sectG=\|
|00000270| 67 6f 6f 64 62 72 65 61 | 6b 0a 5c 6c 65 74 5c 73 |goodbrea|k.\let\s|
|00000280| 65 63 74 48 3d 5c 67 6f | 6f 64 62 72 65 61 6b 0a |ectH=\go|odbreak.|
|00000290| 5c 6c 65 74 5c 73 65 63 | 74 49 3d 5c 67 6f 6f 64 |\let\sec|tI=\good|
|000002a0| 62 72 65 61 6b 0a 20 0a | 25 20 53 74 61 72 74 20 |break. .|% Start |
|000002b0| 61 20 6e 65 77 20 73 65 | 63 74 69 6f 6e 2e 20 20 |a new se|ction.  |
|000002c0| 46 69 72 73 74 20 61 72 | 67 75 6d 65 6e 74 20 69 |First ar|gument i|
|000002d0| 73 20 64 65 70 74 68 20 | 28 31 20 74 6f 20 39 20 |s depth |(1 to 9 |
|000002e0| 70 6c 65 61 73 65 21 29 | 2c 20 73 65 63 6f 6e 64 |please!)|, second|
|000002f0| 0a 25 20 69 73 20 63 61 | 70 74 69 6f 6e 2e 20 20 |.% is ca|ption.  |
|00000300| 5c 65 73 65 63 74 69 6f | 6e 20 69 73 20 61 20 73 |\esectio|n is a s|
|00000310| 65 63 74 69 6f 6e 20 74 | 68 61 74 20 68 61 73 20 |ection t|hat has |
|00000320| 6e 6f 74 68 69 6e 67 20 | 61 62 6f 76 65 20 69 74 |nothing |above it|
|00000330| 20 61 6e 64 0a 25 20 73 | 68 6f 75 6c 64 6e 27 74 | and.% s|houldn't|
|00000340| 20 67 65 74 20 61 20 5c | 67 6f 6f 64 62 72 65 61 | get a \|goodbrea|
|00000350| 6b 5c 62 69 67 73 6b 69 | 70 2e 0a 20 0a 5c 6f 75 |k\bigski|p.. .\ou|
|00000360| 74 65 72 5c 64 65 66 5c | 73 65 63 74 69 6f 6e 7b |ter\def\|section{|
|00000370| 5c 62 69 67 73 6b 69 70 | 5c 53 45 43 54 49 4f 4e |\bigskip|\SECTION|
|00000380| 7d 0a 5c 6f 75 74 65 72 | 5c 64 65 66 5c 65 73 65 |}.\outer|\def\ese|
|00000390| 63 74 69 6f 6e 7b 5c 6e | 6f 62 72 65 61 6b 5c 73 |ction{\n|obreak\s|
|000003a0| 6d 61 6c 6c 73 6b 69 70 | 5c 53 45 43 54 49 4f 4e |mallskip|\SECTION|
|000003b0| 7d 0a 5c 64 65 66 5c 53 | 45 43 54 42 41 44 7b 5c |}.\def\S|ECTBAD{\|
|000003c0| 65 72 72 6d 65 73 73 61 | 67 65 7b 53 65 63 74 69 |errmessa|ge{Secti|
|000003d0| 6f 6e 20 64 65 70 74 68 | 73 20 73 68 6f 75 6c 64 |on depth|s should|
|000003e0| 20 62 65 20 62 65 74 77 | 65 65 6e 20 31 20 61 6e | be betw|een 1 an|
|000003f0| 64 20 39 7d 7d 0a 5c 64 | 65 66 5c 53 45 43 54 49 |d 9}}.\d|ef\SECTI|
|00000400| 4f 4e 23 31 23 32 7b 25 | 0a 20 20 20 20 5c 73 65 |ON#1#2{%|.    \se|
|00000410| 63 74 69 6f 6e 64 65 70 | 74 68 3d 23 31 0a 20 20 |ctiondep|th=#1.  |
|00000420| 20 20 5c 69 66 63 61 73 | 65 5c 73 65 63 74 69 6f |  \ifcas|e\sectio|
|00000430| 6e 64 65 70 74 68 5c 53 | 65 63 74 42 61 64 5c 6f |ndepth\S|ectBad\o|
|00000440| 72 5c 73 65 63 74 41 5c | 6f 72 5c 73 65 63 74 42 |r\sectA\|or\sectB|
|00000450| 5c 6f 72 5c 73 65 63 74 | 43 5c 6f 72 0a 20 20 20 |\or\sect|C\or.   |
|00000460| 20 20 20 20 20 5c 73 65 | 63 74 44 5c 6f 72 5c 73 |     \se|ctD\or\s|
|00000470| 65 63 74 45 5c 6f 72 5c | 73 65 63 74 46 5c 6f 72 |ectE\or\|sectF\or|
|00000480| 5c 73 65 63 74 47 5c 6f | 72 5c 73 65 63 74 48 5c |\sectG\o|r\sectH\|
|00000490| 6f 72 5c 73 65 63 74 49 | 5c 65 6c 73 65 0a 20 20 |or\sectI|\else.  |
|000004a0| 20 20 20 20 20 20 5c 53 | 45 43 54 42 41 44 5c 66 |      \S|ECTBAD\f|
|000004b0| 69 0a 20 20 20 20 5c 61 | 64 76 61 6e 63 65 5c 63 |i.    \a|dvance\c|
|000004c0| 6f 75 6e 74 5c 73 65 63 | 74 69 6f 6e 64 65 70 74 |ount\sec|tiondept|
|000004d0| 68 20 62 79 31 0a 20 20 | 20 20 5c 6c 6f 6f 70 5c |h by1.  |  \loop\|
|000004e0| 61 64 76 61 6e 63 65 5c | 73 65 63 74 69 6f 6e 64 |advance\|sectiond|
|000004f0| 65 70 74 68 20 62 79 31 | 20 20 20 20 20 20 25 20 |epth by1|      % |
|00000500| 7a 65 72 6f 20 61 6c 6c | 20 6c 6f 77 65 72 20 6c |zero all| lower l|
|00000510| 65 76 65 6c 73 0a 20 20 | 20 20 20 20 20 20 5c 69 |evels.  |      \i|
|00000520| 66 6e 75 6d 5c 73 65 63 | 74 69 6f 6e 64 65 70 74 |fnum\sec|tiondept|
|00000530| 68 3c 31 30 5c 63 6f 75 | 6e 74 5c 73 65 63 74 69 |h<10\cou|nt\secti|
|00000540| 6f 6e 64 65 70 74 68 3d | 30 5c 72 65 70 65 61 74 |ondepth=|0\repeat|
|00000550| 0a 20 20 20 20 5c 73 65 | 63 74 69 6f 6e 64 65 70 |.    \se|ctiondep|
|00000560| 74 68 3d 31 0a 20 20 20 | 20 5c 73 65 74 62 6f 78 |th=1.   | \setbox|
|00000570| 5c 73 65 63 74 6e 75 6d | 3d 5c 68 62 6f 78 7b 5c |\sectnum|=\hbox{\|
|00000580| 6e 75 6d 62 65 72 5c 63 | 6f 75 6e 74 31 7d 25 0a |number\c|ount1}%.|
|00000590| 20 20 20 20 5c 67 6c 6f | 62 61 6c 5c 64 65 66 5c |    \glo|bal\def\|
|000005a0| 53 65 63 74 6e 75 6d 7b | 5c 6e 75 6d 62 65 72 5c |Sectnum{|\number\|
|000005b0| 63 6f 75 6e 74 31 7d 25 | 0a 20 20 20 20 5c 6c 6f |count1}%|.    \lo|
|000005c0| 6f 70 5c 69 66 6e 75 6d | 5c 73 65 63 74 69 6f 6e |op\ifnum|\section|
|000005d0| 64 65 70 74 68 3c 23 31 | 20 20 20 20 20 20 20 20 |depth<#1|        |
|000005e0| 20 25 20 47 6c 75 65 20 | 74 6f 67 65 74 68 65 72 | % Glue |together|
|000005f0| 20 65 61 63 68 20 6c 65 | 76 65 6c 0a 20 20 20 20 | each le|vel.    |
|00000600| 20 20 20 20 5c 61 64 76 | 61 6e 63 65 5c 73 65 63 |    \adv|ance\sec|
|00000610| 74 69 6f 6e 64 65 70 74 | 68 20 62 79 31 0a 20 20 |tiondept|h by1.  |
|00000620| 20 20 20 20 20 20 5c 69 | 66 6e 75 6d 30 3d 5c 63 |      \i|fnum0=\c|
|00000630| 6f 75 6e 74 5c 73 65 63 | 74 69 6f 6e 64 65 70 74 |ount\sec|tiondept|
|00000640| 68 20 20 20 20 20 25 20 | 66 6f 72 63 65 20 74 6f |h     % |force to|
|00000650| 20 31 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 5c | 1.     |       \|
|00000660| 73 65 74 5c 63 6f 75 6e | 74 5c 73 65 63 74 69 6f |set\coun|t\sectio|
|00000670| 6e 64 65 70 74 68 3d 31 | 0a 20 20 20 20 20 20 20 |ndepth=1|.       |
|00000680| 20 5c 66 69 0a 20 20 20 | 20 20 20 20 20 5c 73 65 | \fi.   |     \se|
|00000690| 74 62 6f 78 5c 73 65 63 | 74 6e 75 6d 3d 5c 68 62 |tbox\sec|tnum=\hb|
|000006a0| 6f 78 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 7b |ox.     |       {|
|000006b0| 5c 75 6e 68 62 6f 78 5c | 73 65 63 74 6e 75 6d 2e |\unhbox\|sectnum.|
|000006c0| 5c 6e 75 6d 62 65 72 5c | 63 6f 75 6e 74 5c 73 65 |\number\|count\se|
|000006d0| 63 74 69 6f 6e 64 65 70 | 74 68 7d 25 0a 20 20 20 |ctiondep|th}%.   |
|000006e0| 20 20 20 20 20 5c 67 6c | 6f 62 61 6c 5c 65 64 65 |     \gl|obal\ede|
|000006f0| 66 5c 53 65 63 74 6e 75 | 6d 7b 5c 53 65 63 74 6e |f\Sectnu|m{\Sectn|
|00000700| 75 6d 2e 5c 6e 75 6d 62 | 65 72 5c 63 6f 75 6e 74 |um.\numb|er\count|
|00000710| 5c 73 65 63 74 69 6f 6e | 64 65 70 74 68 7d 25 0a |\section|depth}%.|
|00000720| 20 20 20 20 5c 72 65 70 | 65 61 74 0a 20 20 20 20 |    \rep|eat.    |
|00000730| 5c 6d 65 73 73 61 67 65 | 7b 5c 53 65 63 74 6e 75 |\message|{\Sectnu|
|00000740| 6d 2e 20 20 23 32 7d 25 | 0a 20 20 20 20 5c 73 65 |m.  #2}%|.    \se|
|00000750| 74 62 6f 78 30 3d 5c 68 | 62 6f 78 7b 5c 62 66 5c |tbox0=\h|box{\bf\|
|00000760| 63 6f 70 79 5c 73 65 63 | 74 6e 75 6d 2e 5c 68 73 |copy\sec|tnum.\hs|
|00000770| 6b 69 70 31 65 6d 23 32 | 7d 25 0a 20 20 20 20 5c |kip1em#2|}%.    \|
|00000780| 64 65 66 5c 74 65 78 74 | 7b 5c 53 65 63 74 6e 75 |def\text|{\Sectnu|
|00000790| 6d 2e 5c 53 50 21 23 32 | 7d 25 0a 20 20 20 20 5c |m.\SP!#2|}%.    \|
|000007a0| 74 6f 63 65 6e 74 72 79 | 7b 23 31 7d 7b 5c 74 65 |tocentry|{#1}{\te|
|000007b0| 78 74 7d 7b 5c 62 6f 78 | 30 5c 68 66 69 6c 7d 0a |xt}{\box|0\hfil}.|
|000007c0| 20 20 20 20 5c 69 67 6e | 6f 72 65 73 70 61 63 65 |    \ign|orespace|
|000007d0| 73 0a 7d 0a 20 0a 25 20 | 75 6e 6e 75 6d 62 65 72 |s.}. .% |unnumber|
|000007e0| 65 64 20 73 65 63 74 69 | 6f 6e 0a 5c 64 65 66 5c |ed secti|on.\def\|
|000007f0| 75 6e 73 65 63 74 69 6f | 6e 23 31 7b 25 0a 20 20 |unsectio|n#1{%.  |
|00000800| 20 20 5c 6d 65 73 73 61 | 67 65 7b 23 31 7d 25 0a |  \messa|ge{#1}%.|
|00000810| 20 20 20 20 5c 73 65 74 | 62 6f 78 30 3d 5c 68 62 |    \set|box0=\hb|
|00000820| 6f 78 7b 5c 62 66 23 31 | 7d 25 0a 20 20 20 20 5c |ox{\bf#1|}%.    \|
|00000830| 64 65 66 5c 74 65 78 74 | 7b 5c 53 50 21 23 31 7d |def\text|{\SP!#1}|
|00000840| 25 0a 20 20 20 20 5c 74 | 6f 63 65 6e 74 72 79 7b |%.    \t|ocentry{|
|00000850| 30 7d 7b 5c 74 65 78 74 | 7d 7b 5c 62 6f 78 30 5c |0}{\text|}{\box0\|
|00000860| 68 66 69 6c 7d 25 0a 20 | 20 20 20 5c 69 67 6e 6f |hfil}%. |   \igno|
|00000870| 72 65 73 70 61 63 65 73 | 0a 7d 0a 20 0a 25 20 70 |respaces|.}. .% p|
|00000880| 72 69 6e 74 20 61 72 67 | 20 33 20 61 73 20 61 20 |rint arg| 3 as a |
|00000890| 6c 69 6e 65 2c 20 70 75 | 74 20 61 72 67 20 32 20 |line, pu|t arg 2 |
|000008a0| 69 6e 74 6f 20 74 68 65 | 20 74 61 62 6c 65 20 6f |into the| table o|
|000008b0| 66 20 63 6f 6e 74 65 6e | 74 73 20 77 69 74 68 0a |f conten|ts with.|
|000008c0| 25 20 61 20 22 6c 65 76 | 65 6c 22 20 6f 66 20 61 |% a "lev|el" of a|
|000008d0| 72 67 20 31 0a 25 20 74 | 61 6b 65 73 20 63 61 72 |rg 1.% t|akes car|
|000008e0| 65 20 6f 66 20 70 75 74 | 74 69 6e 67 20 62 6f 78 |e of put|ting box|
|000008f0| 30 20 6f 75 74 20 61 73 | 20 61 20 6c 69 6e 65 2c |0 out as| a line,|
|00000900| 20 61 6e 64 20 70 75 74 | 74 69 6e 67 20 69 74 20 | and put|ting it |
|00000910| 69 6e 74 6f 20 74 68 65 | 0a 25 20 74 61 62 6c 65 |into the|.% table|
|00000920| 20 6f 66 20 63 6f 6e 74 | 65 6e 74 73 20 69 66 20 | of cont|ents if |
|00000930| 72 65 71 75 69 72 65 64 | 0a 5c 64 65 66 5c 74 6f |required|.\def\to|
|00000940| 63 65 6e 74 72 79 23 31 | 23 32 23 33 7b 25 0a 20 |centry#1|#2#3{%. |
|00000950| 20 20 20 5c 6c 69 6e 65 | 7b 23 33 7d 25 20 73 74 |   \line|{#3}% st|
|00000960| 75 66 66 20 74 6f 20 61 | 70 70 65 61 72 20 69 6e |uff to a|ppear in|
|00000970| 20 74 68 65 20 74 65 78 | 74 0a 20 20 20 20 5c 6e | the tex|t.    \n|
|00000980| 6f 62 72 65 61 6b 5c 73 | 6d 61 6c 6c 73 6b 69 70 |obreak\s|mallskip|
|00000990| 5c 6e 6f 62 72 65 61 6b | 20 25 20 6e 6f 77 20 69 |\nobreak| % now i|
|000009a0| 6e 20 76 65 72 74 20 6d | 6f 64 65 0a 20 20 20 20 |n vert m|ode.    |
|000009b0| 5c 69 66 74 6f 63 7b 5c | 6c 65 74 5c 74 68 65 3d |\iftoc{\|let\the=|
|000009c0| 30 20 25 20 6d 61 6b 65 | 20 69 74 20 75 6e 65 78 |0 % make| it unex|
|000009d0| 70 61 6e 64 61 62 6c 65 | 0a 20 20 20 20 20 20 20 |pandable|.       |
|000009e0| 20 5c 78 64 65 66 5c 69 | 78 6f 75 74 7b 5c 77 72 | \xdef\i|xout{\wr|
|000009f0| 69 74 65 5c 69 6e 78 7b | 5c 5a 23 31 5c 53 50 21 |ite\inx{|\Z#1\SP!|
|00000a00| 23 32 21 5c 53 50 5c 74 | 68 65 5c 70 61 67 65 6e |#2!\SP\t|he\pagen|
|00000a10| 6f 2e 7d 7d 5c 69 78 6f | 75 74 0a 20 20 20 20 7d |o.}}\ixo|ut.    }|
|00000a20| 5c 66 69 0a 7d 0a 20 0a | 5c 69 66 78 5c 74 69 74 |\fi.}. .|\ifx\tit|
|00000a30| 6c 65 66 6f 6e 74 5c 75 | 6e 64 65 66 69 6e 65 63 |lefont\u|ndefinec|
|00000a40| 6f 6e 74 72 6f 6c 73 65 | 71 75 65 6e 63 65 0a 20 |ontrolse|quence. |
|00000a50| 20 20 20 5c 66 6f 6e 74 | 5c 74 69 74 6c 65 66 6f |   \font|\titlefo|
|00000a60| 6e 74 3d 61 6d 73 73 62 | 78 31 30 20 73 63 61 6c |nt=amssb|x10 scal|
|00000a70| 65 64 5c 6d 61 67 73 74 | 65 70 32 0a 5c 66 69 0a |ed\magst|ep2.\fi.|
|00000a80| 5c 6e 65 77 63 6f 75 6e | 74 5c 53 69 7a 0a 5c 6e |\newcoun|t\Siz.\n|
|00000a90| 65 77 77 72 69 74 65 5c | 69 6e 78 0a 5c 64 65 66 |ewwrite\|inx.\def|
|00000aa0| 5c 44 6f 43 6f 6e 74 65 | 6e 74 73 7b 5c 74 6f 63 |\DoConte|nts{\toc|
|00000ab0| 74 72 75 65 5c 69 6d 6d | 65 64 69 61 74 65 5c 6f |true\imm|ediate\o|
|00000ac0| 70 65 6e 6f 75 74 5c 69 | 6e 78 3d 5c 6a 6f 62 6e |penout\i|nx=\jobn|
|00000ad0| 61 6d 65 2e 74 6f 63 7d | 0a 5c 64 65 66 5c 50 72 |ame.toc}|.\def\Pr|
|00000ae0| 69 6e 74 54 4f 43 7b 5c | 76 66 69 6c 6c 5c 73 75 |intTOC{\|vfill\su|
|00000af0| 70 65 72 65 6a 65 63 74 | 5c 69 6d 6d 65 64 69 61 |pereject|\immedia|
|00000b00| 74 65 5c 63 6c 6f 73 65 | 6f 75 74 5c 69 6e 78 0a |te\close|out\inx.|
|00000b10| 20 20 20 20 5c 64 65 66 | 5c 4c 65 61 64 46 69 6c |    \def|\LeadFil|
|00000b20| 6c 7b 5c 6c 65 61 64 65 | 72 73 5c 68 62 6f 78 20 |l{\leade|rs\hbox |
|00000b30| 74 6f 20 2e 37 35 65 6d | 7b 5c 68 73 73 2e 5c 68 |to .75em|{\hss.\h|
|00000b40| 73 73 7d 5c 68 66 69 6c | 6c 7d 0a 20 20 20 20 5c |ss}\hfil|l}.    \|
|00000b50| 64 65 66 5c 5a 23 23 31 | 21 23 23 32 21 23 23 33 |def\Z##1|!##2!##3|
|00000b60| 21 23 23 34 2e 7b 0a 20 | 20 20 20 20 20 20 20 5c |!##4.{. |       \|
|00000b70| 53 69 7a 3d 23 23 31 5c | 63 6f 75 6e 74 31 3d 5c |Siz=##1\|count1=\|
|00000b80| 53 69 7a 0a 20 20 20 20 | 20 20 20 20 5c 61 64 76 |Siz.    |    \adv|
|00000b90| 61 6e 63 65 5c 53 69 7a | 20 62 79 20 31 20 5c 6d |ance\Siz| by 1 \m|
|00000ba0| 75 6c 74 69 70 6c 79 5c | 53 69 7a 20 62 79 20 5c |ultiply\|Siz by \|
|00000bb0| 63 6f 75 6e 74 31 0a 20 | 20 20 20 20 20 20 20 5c |count1. |       \|
|00000bc0| 64 69 76 69 64 65 5c 53 | 69 7a 20 62 79 20 32 20 |divide\S|iz by 2 |
|00000bd0| 20 5c 61 64 76 61 6e 63 | 65 5c 53 69 7a 20 62 79 | \advanc|e\Siz by|
|00000be0| 20 2d 31 0a 20 20 20 20 | 20 20 20 20 5c 64 69 6d | -1.    |    \dim|
|00000bf0| 65 6e 30 3d 31 65 6d 5c | 6d 75 6c 74 69 70 6c 79 |en0=1em\|multiply|
|00000c00| 5c 64 69 6d 65 6e 30 20 | 62 79 20 5c 53 69 7a 0a |\dimen0 |by \Siz.|
|00000c10| 20 20 20 20 20 20 20 20 | 5c 53 69 7a 3d 23 23 31 |        |\Siz=##1|
|00000c20| 5c 61 64 76 61 6e 63 65 | 5c 53 69 7a 20 62 79 20 |\advance|\Siz by |
|00000c30| 31 0a 20 20 20 20 20 20 | 20 20 5c 64 69 6d 65 6e |1.      |  \dimen|
|00000c40| 31 3d 31 65 6d 5c 6d 75 | 6c 74 69 70 6c 79 5c 64 |1=1em\mu|ltiply\d|
|00000c50| 69 6d 65 6e 31 20 62 79 | 20 5c 53 69 7a 0a 20 20 |imen1 by| \Siz.  |
|00000c60| 20 20 20 20 20 20 5c 6c | 69 6e 65 7b 5c 68 73 6b |      \l|ine{\hsk|
|00000c70| 69 70 5c 64 69 6d 65 6e | 30 5c 68 62 6f 78 20 74 |ip\dimen|0\hbox t|
|00000c80| 6f 5c 64 69 6d 65 6e 31 | 7b 23 23 32 5c 68 66 69 |o\dimen1|{##2\hfi|
|00000c90| 6c 7d 7b 23 23 33 7d 5c | 4c 65 61 64 46 69 6c 6c |l}{##3}\|LeadFill|
|00000ca0| 5c 68 62 6f 78 7b 23 23 | 34 7d 7d 0a 20 20 20 20 |\hbox{##|4}}.    |
|00000cb0| 7d 0a 20 20 20 20 5c 63 | 65 6e 74 65 72 6c 69 6e |}.    \c|enterlin|
|00000cc0| 65 7b 5c 74 69 74 6c 65 | 66 6f 6e 74 20 54 61 62 |e{\title|font Tab|
|00000cd0| 6c 65 20 6f 66 20 43 6f | 6e 74 65 6e 74 73 7d 5c |le of Co|ntents}\|
|00000ce0| 76 73 6b 69 70 20 2e 37 | 35 69 6e 0a 20 20 20 20 |vskip .7|5in.    |
|00000cf0| 5c 67 6c 6f 62 61 6c 5c | 63 6f 75 6e 74 30 3d 2d |\global\|count0=-|
|00000d00| 31 0a 20 20 20 20 5c 69 | 6e 70 75 74 20 5c 6a 6f |1.    \i|nput \jo|
|00000d10| 62 6e 61 6d 65 2e 74 6f | 63 0a 7d 0a             |bname.to|c.}.    |
+--------+-------------------------+-------------------------+--------+--------+